Imports System.Configuration
Imports System.Data
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq

Public Partial Class _Default
	Inherits System.Web.UI.Page
	Protected Sub Page_Load(sender As Object, e As EventArgs)
		Label4.Text = DateTime.Today.ToString("f")
		If Page.User.Identity.Name <> "" Then
			If Not Roles.IsUserInRole("MovieTix") And Not Roles.IsUserInRole("Theatre") And Not Roles.IsUserInRole("TheatreAdmin") Then
				HyperLink15.Text = "My Account"

				HyperLink15.NavigateUrl = "~/myaccount.aspx"

			ElseIf Roles.IsUserInRole("MovieTix") Then
				HyperLink15.Text = "MovieTix Staff"

				HyperLink15.NavigateUrl = "~/MovieTixstaff/addtheatre.aspx"
			ElseIf Roles.IsUserInRole("Theatre") Then
				HyperLink15.Text = "Theatre Staff"

				HyperLink15.NavigateUrl = "~/Theatrestaff/cinema.aspx"
			ElseIf Roles.IsUserInRole("TheatreAdmin") Then
				HyperLink15.Text = "Theatre admin"

				HyperLink15.NavigateUrl = "~/Theatrestaff/addnewuser.aspx"
			End If
		End If
	End Sub
End Class
